Read in the spreadsheet made from the Life in the UK handbook (and additional information)

# century = 36525 days
timedat <- read.csv("data/timeline.csv")

timedat %>% as_tibble() %>% 
  mutate(start = as.Date(as.numeric(start), origin="0000-01-01"),
         end = as.Date(as.numeric(end), origin="0000-01-01"),
         altStart = as.Date(as.numeric(altStart), origin="0000-01-01"),
         altEnd = as.Date(as.numeric(altEnd), origin="0000-01-01")) -> timeline;timeline
## # A tibble: 8 x 10
##   event start      end        group startForHumans endForHumans tooltip
##   <chr> <date>     <date>     <chr> <chr>          <chr>        <chr>  
## 1 Perm… -9700-01-01 -8001-12-31 Earl… 11700 BCE      10000 BCE    Perman…
## 2 Hunt… -8000-01-01 -4001-12-31 Earl… 10000 BCE      6000 BCE     Hunter…
## 3 Neol… -4500-01-01 -2001-12-31 Earl… 6500 BCE       4001 BCE     Neolit…
## 4 Firs… -4000-01-01 -4000-12-31 Earl… 6000 BCE       6000 BCE     First …
## 5 Bron… -2000-01-01 -801-12-31 Earl… 4000 BCE       800 BCE      Bronze…
## 6 Iron… -800-01-01 -056-12-31 Earl… 800 BCE        56 BCE       Iron A…
## 7 Firs… -055-01-01 -054-12-31 Roma… 55 BCE         55 BCE       First …
## 8 Seco… 0043-01-01 0043-12-31 Roma… 43 AD          43 AD        Second…
## # … with 3 more variables: altStart <date>, altEnd <date>, color <chr>

vistime package

vistime()

default plotly visualisation

gg_vistime()

static visualisation

hc_vistime()

interactive visualisation